Tömb feltöltése n darab bekért számmal, és ezek közül a legkisebb elem kiválasztása (Minimum.pas) program Minimum; uses crt; var i,n,min:integer;     a:array [1..10] of integer; BEGIN    write ('n:=');    readln(n); Bekérjük a tömbelemek számát, amely nem lehet nagyobb 10-nél, mivel az a tömb 10 eleműnek lett deklarálva.    i:=1;    while (i<=n) do begin A ciklus segítségével feltöltjük a tömböt.       write ('a[',i,']:=');       readln (a[i]); Beolvassuk az a tömb i-edik elemét.       i:=i+1;       end;    min:=a[1]; A fent egész számnak deklarált min változóba beletesszük az a tömb 1. elemének értékét.    i:=2; Mivel a tömb 1. indexű elemét már beleraktuk a min nevű változóba, ezért a 2. indexű elemmel kezdjük a következő ciklust.    while (i<=n) do begin       if(min>a[i]) then begin          min:=a[i]; Amennyiben a min változó értékénél kisebb értékű tömbelemet találunk, azt beletesszük a min-be.          end;       i:=i+1;       end;    writeln('A legkisebb szam= ',min); END.